home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 May / EnigmA AMIGA RUN 27 (1998)(G.R. Edizioni)(IT)[!][issue 1998-05].iso / earcd / sinclair-ql / boot < prev    next >
Text File  |  1998-02-11  |  3KB  |  87 lines
  1. 1000 DIM Dev$(5),V$(4),Dat$(20)
  2. 1010 Dev$="Flp1_":V$=VER$
  3. 1020 True%=NOT(0):False%=NOT(True%)
  4. 1030 REMark -- PDTK TOOLKIT --
  5. 1040 _Base=RESPR(3148):LBYTES Dev$&"PDTK_rext",_Base:CALL _Base
  6. 1050 REMark -- TURBO TOOLKIT --
  7. 1060 REMark * TURBO keywords must be
  8. 1070 REMark   initialised before other
  9. 1080 REMark   toolkit keywords with the
  10. 1090 REMark   with the same name.
  11. 1100 _Base=RESPR(7204):LBYTES Dev$&"TURBO_TOOLKIT_code",_Base:CALL _Base
  12. 1110 REMark -- INITIALISE PDTK TOOLKIT --
  13. 1120 PDTK_EXT
  14. 1130 REMark -- CHECK IF ROM AREA FREE --
  15. 1140 SoftROM%=False%
  16. 1150 IF PEEK_L(49152)<>HEX("4AFB0001") THEN 
  17. 1160  Arbitrary=HEX("ABBA1978")
  18. 1170  POKE_L 49152,Arbitrary
  19. 1180  IF PEEK_L(49152)=Arbitrary THEN 
  20. 1190   POKE_L 49152,0
  21. 1200   SoftROM%=True%
  22. 1210  END IF 
  23. 1220 END IF 
  24. 1230 REMark -- TK2 TOOLKIT --
  25. 1240 IF WHERE("TK2_EXT")>0 THEN 
  26. 1250  TK2_EXT
  27. 1260  TOOLKILL
  28. 1270 ELSE 
  29. 1280  IF SoftROM% AND FTEST(Dev$&"TK2_rom")=0 THEN 
  30. 1290   LBYTES Dev$&"TK2_rom",49152
  31. 1300   RESET
  32. 1310  ELSE 
  33. 1320   INSTALL(Dev$&"TK2_cde")
  34. 1330   IF WHERE("TK2_ext")>0 THEN 
  35. 1340    TK2_EXT
  36. 1350    TOOLKILL
  37. 1360   END IF 
  38. 1370  END IF 
  39. 1380 END IF 
  40. 1390 REMark -- D68K TOOLKIT --
  41. 1400 INSTALL(Dev$&"D68K_rext")
  42. 1410 REMark -- DIY RANDOM ACCESS --
  43. 1420 INSTALL(Dev$&"RANDOM_code")
  44. 1430 REMark -- DIY SEARCH MEM --
  45. 1440 INSTALL(Dev$&"SEARCH2_code")
  46. 1450 REMark -- QLIB LIBRARIES --
  47. 1460 INSTALL(Dev$&"QLIB_runtimes")
  48. 1470 REMark -- DIY TOOLKIT --
  49. 1480 INSTALL(Dev$&"DIY_code")
  50. 1490 REMark -- SPEEDSCREEN --
  51. 1500 INSTALL(Dev$&"SPEEDSCREEN_code")
  52. 1510 REMark -- INSTALL RAM DISK --
  53. 1520 IF FREE_MEM > 131072 THEN 
  54. 1530  IF DDTEST("RAM") THEN 
  55. 1540   INSTALL(Dev$&"DYNAMIC_RAMDRIVE_cde")
  56. 1550   IF DDTEST("RAM") THEN 
  57. 1560    INSTALL(Dev$&"RAMDISC_cde")
  58. 1570    IF DDTEST("RAM")=0 THEN 
  59. 1580     FORMAT "ram1_128"
  60. 1590    END IF 
  61. 1600   END IF 
  62. 1610  END IF 
  63. 1620 END IF 
  64. 1630 REMark -- DATE AND TIME --
  65. 1640 Dat$=DATE$
  66. 1650 IF Dat$(1 TO 4)="1961" THEN 
  67. 1660  IF FTEST(Dev$&"SETDATE_task")=0 THEN 
  68. 1670   EXEC_W Dev$&"SETDATE_task"
  69. 1680  END IF 
  70. 1690 END IF 
  71. 1700 REMark -- SYSTEM INFO --
  72. 1710 MODE 512
  73. 1720 Dat$=DATE$
  74. 1730 CLS#0:CLS#2:CLS:PRINT\" QDOS version ";QDOS$\" BASIC version ";VER$\\" ";DAY$;" ";Dat$(10 TO 11);Dat$(5 TO 9);Dat$(1 TO 4);\\
  75. 1740 IF SoftROM% THEN PRINT " ROM area 49152 to 65536 free":END IF 
  76. 1750 PRINT " ";FREE_MEM;" bytes available"\\
  77. 1760 STOP
  78. 1770 :
  79. 1780 REMark ---- INSTALL A TOOLKIT ----
  80. 1790 DEFine PROCedure INSTALL(file$)
  81. 1800  LOCal size
  82. 1810  IF FTEST(file$)=0 THEN 
  83. 1820   LRESPR(file$)
  84. 1830   TOOLKILL
  85. 1840  END IF 
  86. 1850 END DEFine INSTALL
  87.